unit F_Wait;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TFormWait = class(TForm)
    Image: TImage;
    Label_W: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  public
    procedure Exe(s:string);
  end;

var
  FormWait: TFormWait;

implementation

procedure TFormWait.Exe(s:string);
begin
  Cursor:=crHourGlass;
  Label_W.caption:=s;
  Show;
end;


{$R *.dfm}

procedure TFormWait.FormActivate(Sender: TObject);
begin
  Image.Top:=ClientHeight div 2-Image.Height div 2
end;

procedure TFormWait.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Cursor:=crDefault;
end;

end.
